﻿Module Module1

    Sub Main()
        Dim miArray() As Integer = {10, 20, 30, 40, 50, 60, 70, 80, 90, 100}
        ReDim miArray(16)
        Dim numero As Integer = 1

        'numero=miArray.GetLowerBound();
        Dim libritos As Libros
        libritos.titulo = "El Quijote"
        libritos.autor = "Cervantes"
        libritos.editorial = "Cátedra"
        libritos.anno = 1610
        Console.WriteLine(libritos.titulo)
        Console.WriteLine(libritos.autor)
        Console.WriteLine(libritos.editorial)
        Console.WriteLine(libritos.anno)
        Console.ReadLine()



    End Sub
    'NO ES NECESARTIO PONER LAS STRUCTURE ANTES DEL SUB MAIN!!!!!!!

    Structure Libros
        Dim titulo As String
        Dim autor As String
        Dim editorial As String
        Dim anno As Integer
    End Structure


End Module
